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] 
1984 47 Page 
14- ssc 9}: 4535 26 LIBRTL.SRC LIBSTRRET. 3 2:1 . (1 | 
|. 1 001 MODULE LIBSSSTRTO RET (ZTITLE® Ltrecy routine ae! ert a es 3) ignat to a return' ; 
: 3 008 IDENT = *T-002" Pile: LiBSTRRET(BSS. Edit: | i 
oer 004 1 BEGIN : 
ee 005 1, bet 
: ? 007 : i meee eeeeeeeeeeee eee eeeeeeeeeeee eee eeeeeeeeeeeeeeeeaeeeeeeeeeeeeeeeeeeieeee : 
R 'e os b 
3 G 808 1 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 6 x 3 
: 10 010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. ® : 
: 1 Bota : ~ ALL RIGHTS RESERVED. - : 
; ig pois 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
; 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ee AND WITH THE * : 
; 15 06015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWA ® 
: 16 0016 1 !* COPIES THEREOF MAY NOT SE PROVIDED OR OTHERWISE MADE RE VATLABLE TO ANY * 
; 17 0017 1 '!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; + id : c TRANSFERRED. * 
; ! * 
3 20 0020 1 !* pe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
5 21 os) 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 Sg Boss : ~ CORPORATION. 
° .* 
: 36 00246 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR ARCLIABILITY OF ITS * 
3 5 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
;: = 0026 1 !* * 
: 27 0027 1 !« * 
3 28 0028 1 ee meee eee eee ERA AA REE EET EERE EERE AREA AERA AAA ERATE EAE 
: 9 0029 1! 
3 $0 $086 1 
: 1 0031 1 !++¢ 
— : 0032 1! FACILITY: Utility Library 
oe + 0033 1! 
H 34 0034 1 ! ABSTRACT: 
Foe: , 0035 1! 
as. 0936 1! LIBSS$STRTO_RET converts any condition value signalled by 
Le a 0037 1! STRSCOPY or STRSGET1 or STRSFREE1 into the corresponding LIB status 
3 38 0038 1! and an ordinery procedure return to the caller of the procedure 
3 24 sh : which established the handler which sailed LIBS$STRTO_RET. 
: re) Opes ' ENVIRONMENT: User mode, re-entrant, AST level or not or mixed. 
; 43 Does AUTHOR: Rebecca Will CREATION DATE: 22-Jan-1980 | 
> 45 045 1 ' MODIFIED BY: 
s € 0046 1! | 
; «447 0047 1! 01 - original , 
; 48 0048 1 ! 1-002 - Add prologue file. SBL 24-June-1983 
: 49 0049 1 !-- 
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descriptor 


Fatal letarnat error in STR 


is interlocked 
String is interlocked 


gat string class 
Insufficient virtual memory 


Fatal error in the Llibrar 
roaet tte lank virtual memor 


' LIBS definitions 
! Convert a signal to a return 
Strin 
Invalid strin 
ILle 
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91 GLOBAL ROUTINE LIBSSSTRTO_RET ( ! Convert a signal to a return 

38 SIG_ARGS_ADR !“Adr. of signal args vector 

9 MCHTARGS-ADRS | Adr. of mechanism args vector 

Be = ! Value is success, unless failure from SYSSUNWIND 
9 lee 


FUNCTIONAL DESCRIPTION: 


LIBSSTRTO_RET is called with the argument List passed to a condition 
handler by the condition handling facility. It converts and translates 
the STR signalled condition 

into a LIB return starys to the procedure which called the 

procedure which established the handler handling the signal. The 

stack is unwound to the caller of the establisher and the condition code 
is returned as the value in RO. 


In BLISS the argument List can be passed in toto by using the 
BUILTIN function CALLG and AP register, thus: 


status = CALLG (.AP, LIB$SIG_TO_RET); 


| 

| 

| 
Or more simply by: ENABLE LIB$SIG_TO_RET (); | 
If there is no need for the handlér fo do any more processing 
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: any other args to handler 
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'¢ 
! If this is unwind condition, just let unwinding continue since 
! propably it was this handler which invoked the unwind. 


PROPOR ONOMONORY 2 tt tt at tt tt tt 
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1 

1 

2 

1 

: 

1 6 

1 0 

1 0 

1 0 

1 0 

1 0 

1 0 

0 

! 5 : FORMAL PARAMETERS: 

1 018 SIG_ARGS_ADR.rl.ra Adr. of signal args vector 

: 8 : MCH_ARGS_ADR.ml.ra Adr. of mechanism args vector 

1 018 

1 018 IMPLICIT INPUTS: 

1 019 

1 019 NONE 

1 019 

: 3 IMPLICIT OUTPUTS: 

1 8 9 NONE 

1 9 

' 8 4 COMPLETION CODES: 

: +4 SS$_NORMAL if SYSSUNWIND ok, else error codes form SYSSUNWIND. 

: 0 4 SIDE EFFECTS: 

1 b 08 Causes the stack to marked to be unwound to the caller of the | 
! 3 Be establishing procedure of the handler which was called on this signal. 
1 - 
} 36 
1 @ BEGIN 

1 9 MAP 

1 0 SIG_ARGS_ADR: REF BLOCK(8, BYTE) ! Signal vector 
1 1 MCHTARGS-ADR: REF BLOCKC20, BYTES; i mechanism vector | 
: § | 
1 & 

1 5 
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-32 v4.0=74 p Pi 
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| 
| 
Wy tis | 
; 
‘ } 9 18 IF .SIG_ARGS_ADRCCHFSL_SIG_NAME] EQL SS$_UNWIND THEN RETURN SS$_NORMAL; | 
: 1 0 14 
: } § 0 i Copy condition value to saved image of RO 
: 155 | 
. $ 0 & MCH_ARGS_ADRCCHFSL_MCH_SAVR o = 
; 132 8 5 CSELECTONE SIG ARGS ADR CHFSL_SIG_NAME] OF 
: 159 0 5 STRS_FATINTERR] : LIBS_FATERRLIB; 
: 160 & STRS_ILLSTRCLAJ : LIBS-INVSTRD DES: 
s «(Yel 0229 STRS_INSVIRMEM) : LIBS$_IN wey IRMEM; 
; 166 0230 STRS$_STRIS_INT LIB$"S rhe INT; 
3 16 0231 OTHERWISE)”: 316 _ARGS_ADRCCAFS$L_SIG_NAME]J; 
: 164 0 § TES); 
3 6S 0 
: 166 0234 14 
: 167 0235 i Set to unwind stack using default depth and default new PC, 
: 198 b¢38 - namely return to caller of the procedure which established the handler 
: 170 0238 
; (171 0239 
3; We 0240 1 ! End of LIBS$STRTO_RET routine 


-TITLE LIBSSSTRTO_RET Library routine to convert a str 
; ing signal to a 
-IDENT \1-002\ 


-EXTRN LIBS_FATERRLIB, LI 
LIBS_INSVIRMEM, LI 
STRS_FATINTERR, ST 

-EXTRN STRS-ILLSTRCLA, ST 

EX SYSSONWIND 


RETURN SUNWIND (); 
END; 
-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 


0000 00000 -ENTRY LIBSS$STRTO_RET, Save nothing ; 0159 

04 ac DO 00002 MOVL  $IG_ARGS_ADR, RO : 0218 
50 04 Ad dO 00006 MOVL 6 : 
00000920 BF 50 D1 OOO0A CMPL = RO, #2336 ; 
04 if 9 if BNEQ is : 
50 1D 1 MOVL , RO : 
04 00 16 RET : 

51 08 aC dO 00017 18 MOVL § MCH_ARGS_ADR, R1 ; 0324 

000000006 &F 50 01 90018 CMPL RO, #STRS_FATINTERR : 0227 
9 i 00 BNEQ : 
50 000000006 f bg : MOVL #LIBS_FATERRLIB, RO : 

000000006 8F 9 p} D 28 CMPL RO, #STRS_ILLSTRCLA : 0228 
50 000000006 : 06 , #LIBS_INVSTRDES, RO : 

000000006 8F 5 D1 RO, #STRS_INSVIRMEM : 0229 
09 12 B 4$ : 
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; Routine Size: 
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000000006 


oc 
000000006 


111 bytes, Routine Base: 


50 000000006 
8F 
50 000000006 
Al 


00 


1:17:47 
2:39:26 
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-LIBSCODE 


#LIBS_INSVIRMEM, RO 
RO, #STRS_STRIS_INT 
#LIBS STRIS_INT, RO 
RO, 12(R1) 


=(SP) 
#2, SYSSUNWIND 


AX-11 Bliss-32 V4.0 
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STRTO_RET Library routine to convert a string signal to a 18-se Sep-1 AX-11 Bliss-32 V4.0-74 Page 
41883 J _ 23epr 138s 95:45:36 | Hear eRe eestRaer Se. 1 ° 
174 ! End of module LIBSSSTRTO_RET 
175 85e2 4 0 ELUDOM 4 
: PSECT SUMMARY 
: Name Bytes Attributes 
: _LIBSCODE 111 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
RSE aoe te ee cas Symbols o<o--- oo Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 4 0 581 00:00.7 
3 ~$255$0UA28: CLIBRTL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 
; COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LISS:LIBSTRRET/OBJ=08J$:L IBSTRRET MSRC$:LIBSTRRET/UPDATE=(ENHS$:LIBSTRRET 
3; Size: 111 code + 0 data bytes 
; Run Time: 00:02.6 
; Elapsed Time: 00:16.2 
3 Lines/CPU Min: 5500 
; yoneneseS et 11840 
3 Y Used: 44 pages 
3 oe ation Complete 
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